Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/PROGSCAL/TINYPASC.LZH/TUFILES.PAS

Pascal/Delphi Source File | 1986-02-17 | 511b | 24 lines

  { TUFILES:  File opening for program generation. }

  {*****************}
  function OPENSFILE:  boolean;
    { the sfile is the source file }
  begin
    opensfile:=openfile(sfile, sfilename, false);
    end;

  {*****************}
  function OPENRFILE:  boolean;
    { the gfile is the target assembler file }
  begin
    openrfile:=openfile(rfile, rfilename, true);
    end;

  {*******************}
  procedure CLOSEFILES;
  begin
    close(sfile);
    close(rfile);
    end;